home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ Win2K Kerberos Debug 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-28  |  1.7 KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Network\Security\ActiveDirectory"
  5. "UIPATH 2"="System\Debugging"
  6. "NAME"="Kerberos Logging"
  7. "VERSION"="1.00"
  8. "OSVERSION"="000101"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Log Kerberos Activity to Event Log"
  11. "DESCRIPTION 1"="If you have problems with your Kerberos login, try activating this log option which will write several events to your System Log (viewable through Event Viewer)."
  12. "DESCRIPTION 2"=" "
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Microsoft article Q262177"
  17.  
  18.  
  19.  
  20.  
  21. sV1="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\Parameters\LogLevel" 
  22.  
  23. Sub Plugin_Initialize 
  24.     i=RegReadValue(sV1)
  25.     if i=1 then setuielement 1,true
  26.  
  27.     'i=RegReadValue(sV2)
  28.     'if i=1 then setuielement 2,true
  29.  
  30.     'i=RegReadValue(sV3)
  31.     'if i=1 then setuielement 3,true
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  if GetUIElement(1)=true then
  39.     Call RegWriteValue(sV1,1,2)
  40.  else
  41.     If RegValueExists(sV1) then RegDeleteValue(sV1)
  42.  end if
  43.  
  44. ' if GetUIElement(2)=true then
  45. '    Call RegWriteValue(sV2,1,2)
  46. ' else
  47. '    If RegValueExists(sV2) then RegDeleteValue(sV2)
  48. ' end if
  49.  
  50. ' if GetUIElement(3)=true then
  51. '    Call RegWriteValue(sV3,1,2)
  52. ' else
  53. '    If RegValueExists(sV3) then RegDeleteValue(sV3)
  54. ' end if
  55.  
  56. ' if GetUIElement(4)=true then
  57. '    Call RegWriteValue(sV4,1,2)
  58. ' else
  59. '    If RegValueExists(sV4) then RegDeleteValue(sV4)
  60. ' end if
  61.  
  62.  i=RegEnumValues(sP)
  63.  if i=0 then RegDeletePath(sP)
  64.  
  65.  Call Logoff()
  66. End Sub
  67.  
  68. Sub Plugin_Terminate 
  69. End Sub
  70.